*************************************************
*TABLE A6: Defensive ownership and language, 2004
*************************************************
local mresult "Results/TableA6.xls"
local rresult "Results/TableA6r.xls"

*No oligarch/Distance
use "Regressions Data/baseline0406.dta",clear
set more off
keep if year==2004

*No oligarch in chain
ivreg2 no_oligarch_chain (orange=ruslang) gray lemp tfp privatized sec1 sec2 sec4-sec10,first cluster(group)
outreg2 using `mresult',  replace dec(3)  ctitle(IV oligarch) keep(orange gray lemp tfp privatized)

*Distance to oligarch
ivreg2 mdistance (orange=ruslang) gray lemp tfp privatized sec1 sec2 sec4-sec10,first cluster(group)
outreg2 using `mresult',  append dec(3)  ctitle(IV mdistance) keep(orange gray lemp tfp privatized)

*Reduced form
reg no_oligarch_chain  ruslang gray lemp tfp privatized sec1 sec2 sec4-sec10, cluster(group)
outreg2 using `rresult',  replace dec(3) ctitle(no_oligarch_chain) keep(ruslang)

reg mdistance ruslang  gray lemp tfp privatized sec1 sec2 sec4-sec10, cluster(group) 
outreg2 using `rresult',  append dec(3) ctitle(mdistance) keep(ruslang)

*FOREIGN/OFFSHORE
use "Regressions Data/baseline0406_nown.dta",clear
keep if year==2004

*Foreign
ivreg2 foreign_in_chain (orange=ruslang) gray lemp tfp privatized sec1 sec2 sec4-sec10,first cluster(group)
outreg2 using `mresult',  append dec(3)  ctitle(IV foreign_in_chain) keep(orange gray lemp tfp privatized)

*Offshore
ivreg2 offshore (orange=ruslang) gray lemp tfp privatized sec1 sec2 sec4-sec10,first cluster(group)
outreg2 using `mresult',  append dec(3)  ctitle(IV offshore) keep(orange gray lemp tfp privatized)

*Reduced form
reg foreign_in_chain  ruslang gray lemp tfp privatized sec1 sec2 sec4-sec10, cluster(group)
outreg2 using `rresult',  append dec(3) ctitle(foreign) keep(ruslang)

reg offshore ruslang  gray lemp tfp privatized sec1 sec2 sec4-sec10, cluster(group) 
outreg2 using `rresult',  append dec(3) ctitle(offshore) keep(ruslang)

